помогите с паскалем, пожалуйста

[Зинуся]

помогите пожалуйста с паскалем, очень нужно решить задачу, пожалуйста помогите!!!!
Составление алгоритмов для обработки строковой информации.
В заданном предложении указать слово, в котором доля гласных (A, E, I, O) максимальна.

[Stilet]

Ну выкладывай идеи. )

[Зинуся]

я совсем не знаю как делать((((((((

[Stilet]

Ну предположим ты выделила слово из строки, тогда примерно такой код даст тебе количество этих букв в слове:

var s:string;i,k:integer;
begin
k:=0;
s:='rennovation';
for i:=0 to length(s) do
 if s[i] in ['a','e','i','o'] then inc(k);
end;

Здесь s - содержит слово которое выделено.

Теперь просто найди максимальное к и выведи то слово.
Яснышко?

[Зинуся]

неа, я не знаю как((((

[Карась]

эта задачу мусолили 256 раз.......

Vor S, W:String;   
      P, G, C, i : integer;   
begn  
   S := 'строка слов разделенных пробелом;   
   P := 1; G := 0; W:= ''; C:= 0;   
   for i:=1 to length(S) do begin  
      if (S[i] in ['а','е','и','о']) then inc(C);   
      if (S[i] = ' ') or (i = length(S)) then begin  
         if C > G then begin  
            G := C;   
            W := copy(S, P, i-P+1);   
         end;   
         P := i+1   
         C := 0;   
      end;   
   end;   
   writeLn(W);

[Зинуся]

пасибки)))